home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 127 / 127.d81 / b.mini xmas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  67 lines
  1. 2 poke56,32:clr
  2. 4 dv=peek(186):ifdv<8thendv=8
  3. 6 poke53281,0:poke53280,0:print"[147]"
  4. 8 gosub60000
  5. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  6. 14 sys57812"snow man.shp",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  7. 15 sys57812"santa.shp",dv,0:poke780,0:poke781,0:poke782,66:sys65493
  8. 16 sys57812"kids.shp",dv,0:poke780,0:poke781,0:poke782,91:sys65493
  9. 17 sys57812"madonna.shp",dv,0:poke780,0:poke781,0:poke782,109:sys65493
  10. 18 sys57812"mini font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  11. 19 print"":poke53272,25
  12. 20 p(0)=40:p(1)=66:p(2)=91:p(3)=109
  13. 21 b(0)=6:b(1)=6:b(2)=6:b(3)=0
  14. 22 s=54272:i=rnd(-ti)
  15. 24 print"[147]"
  16. 26 poke53280,0:gosub300
  17. 30 poke214,18:print:fori=0to4:printtab(10)left$(z$,20):next
  18. 32 poke214,19:print:printtab(12)"[211][208][193][195][197] - [208]icture"
  19. 34 printtab(15)"[209] - [209]uit"
  20. 50 r=int(rnd(1)*1000)+1024
  21. 52 ifpeek(r)>224andpeek(r)<256thenifrnd(1)>.5thenrr=32:goto64
  22. 60 ifpeek(r)<>32then50
  23. 62 rr=int(rnd(1)*30)+225
  24. 64 poker,rr:poker+s,1
  25. 70 geta$:ifa$=""then50
  26. 80 ifa$="q"then40000
  27. 90 ifa$<>" "then50
  28. 110 poke251,p(p):poke252,224:poke253,204
  29. 120 poke53280,b(p):sys51456:sys51459
  30. 130 poke198,0
  31. 140 geta$:ifa$=""then140
  32. 150 poke53281,1:sys51459:poke53281,0
  33. 160 p=(p+1)and3
  34. 170 goto26
  35. 300 print""tab(7)"[174]  [176] [176][192][192][174] [174]   [176][192][178][192][174]' [176][192][192][174]
  36. 302 [153][163]7)"(NULL)or^(NULL) -tantan< (NULL)     (NULL)    /tantan^
  37. 304 printtab(7)"[173][189][173][189] [189]  [173] [173][192][192][189]  [177]    [173][192][192][189]"
  38. 306 printtab(13)"[153][176][174][176][174] [178] [176][174][176] [178]"
  39. 308 printtab(13)"[221][173][189][221] [221] [221][221][221] [221]"
  40. 310 printtab(13)"[189]  [173] [177] [189][173][189] [177]"
  41. 312 print"    [176][192][174] [174] [176] [176][192][174] [178] [176][192][174][176][192][178][192][174][176][174][176][174] [176][192][174] [176][192][174]
  42. 314 [153]"    (NULL)   -tan< -=exp (NULL) /tan^  (NULL)  (NULL)/exp(NULL) -tan< /tan^
  43. 316 print"    [173][192][189] [189] [173] [189][173][189] [177] [173][192][189]  [177]  [189]  [173] [189] [173] [173][192][189]
  44. 318 [142]
  45. 10000 dv[178][194](186):[159]15,dv,15,"s0:mini xmas":[160]15:[148]"mini xmas",dv:[128]
  46. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  47. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  48. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  49. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  50. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  51. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  52. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  53. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  54. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  55. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  56. 60000 [153]"load":z$[178]" print#                                      "
  57. 60010 [151]214,13:[153]:[129]i[178]0[164]9:[153]z$:[130]
  58. 60030 z$(0)[178]"(NULL) atn (NULL) (NULL) ' (NULL)    (NULL) right$ (NULL) right$ - (NULL) (NULL) atn (NULL)"
  59. 60032 z$(1)[178]"by (NULL)alt left$arned and ascender (NULL)ucker"
  60. 60040 z$(2)[178]"(len) 1995 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
  61. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  62. 60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  63. 60070 z$(5)="shareware or in the public domain."
  64. 60080 z$(6)="[212]o subscribe call 1-800-594-3370.
  65. 60090 [151]214,14:[153]
  66. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  67.